home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / INTERNET / SITES / GRAHAM / XAAES_S.ZIP / XAAES / FORMS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-01  |  12.6 KB  |  520 lines
  1. /*
  2.  * XaAES - XaAES Ain't the AES
  3.  *
  4.  * A multitasking AES replacement for MiNT
  5.  *
  6.  */
  7.  
  8. #include <stdio.h>
  9. #include <string.h>
  10. #include "XA_DEFS.H"
  11. #include "XA_TYPES.H"
  12. #include "XA_GLOBL.H"
  13. #include "K_DEFS.H"
  14. #include "OBJECTS.H"
  15. #include "FRM_ALRT.H"
  16. #include "STD_WIDG.H"
  17. #include "C_WINDOW.H"
  18. #include "WATCHBOX.H"
  19. #include "FORM_DO.H"
  20.  
  21. #if 0
  22. #define CLIP(tree,obj,x,y,w,h)                \
  23.     object_abs_coords(tree, obj, &x, &y);    \
  24.     w = tree[obj].ob_width;                    \
  25.     h = tree[obj].ob_height;                \
  26.     set_clip(x, y, w, h);
  27. #endif
  28.  
  29. #define CLIP(tree,obj,x,y,w,h)    clear_clip()
  30. #define set_clip(x,y,w,h)        /* We don't want this now! */
  31.  
  32. #if 0
  33. #undef CLIP            /* Those set_clip(..) can't be useful */
  34. #endif
  35.  
  36. /*
  37.     FORM HANDLERS INTERFACE
  38. */
  39.  
  40. #if 0
  41. extern XA_WINDOW *window_list;        /* The global system window stack */
  42. #endif
  43.  
  44. /*
  45.     Primitive version of form_center....
  46.     -this ignores shadows & stuff
  47. */
  48. unsigned long XA_form_center(short clnt_pid, AESPB *pb)
  49. {
  50.     OBJECT *ob = pb->addrin[0];
  51.     short x, y, w, h;
  52.     
  53.     w = ob->ob_width;
  54.     h = ob->ob_height;
  55.     
  56.     x = (display.w - w) / 2;
  57.     y = (display.h - h) / 2;
  58.     
  59.     ob->ob_x = x;
  60.     ob->ob_y = y;
  61.     
  62.     pb->intout[0] = 1;
  63.     pb->intout[1] = x;
  64.     pb->intout[2] = y;
  65.     pb->intout[3] = w;
  66.     pb->intout[4] = h;
  67.     
  68.     return XAC_DONE;
  69. }
  70.  
  71. /*
  72.   Begin/end form handler
  73.   This is important - I hope most programs call this, as XaAES puts it's dialogs
  74.   in windows, and the windows are created here....
  75. */
  76. unsigned long XA_form_dial(short clnt_pid, AESPB *pb)
  77. {    
  78.     XA_CLIENT *client=Pid2Client(clnt_pid);
  79.     XA_WINDOW *dialog_window;
  80.     short x, y, w, h;
  81.  
  82.     switch(pb->intin[0])
  83.     {
  84.         case FMD_START:             /* Create a window to put the dialog in */
  85.  
  86.             dialog_window = create_window(clnt_pid, NAME, pb->intin[5], pb->intin[6], 
  87.                             pb->intin[7], pb->intin[8]);
  88.  
  89.             x = 2 * dialog_window->x - dialog_window->wx;
  90.             y = 2 * dialog_window->y - dialog_window->wy;
  91.             w = 2 * dialog_window->w - dialog_window->ww + 1;
  92.             h = 2 * dialog_window->h - dialog_window->wh + 1;
  93.  
  94.             delete_window(dialog_window);        /* Dispose of the temporary window we created */
  95.                                                 /* And create the real one. It stay's fixed until form_do is called */
  96.                                                 /* when it gets a MOVE property. */
  97. /* We create a window owned by the client so it will get button clicks for this area (in case it's gonna handle things it's own way) */
  98.             client->zen = dialog_window = create_window(clnt_pid, NAME | STORE_BACK | NO_MESSAGES | NO_WORK, x, y, w, h);
  99.             dialog_window->is_open = TRUE;
  100.             dialog_window->created_by_FMD_START = TRUE;
  101. /* Set the window title to be the clients name to avoid confusion */
  102.             dialog_window->widgets[XAW_TITLE].stuff = (void*)client->name;
  103.  
  104.             v_hide_c(V_handle);
  105.             pull_wind_to_top(dialog_window);
  106.             display_window(dialog_window);
  107.             v_show_c(V_handle, 1);
  108.             
  109.             break;
  110.         case FMD_GROW:
  111.             break;
  112.         case FMD_SHRINK:
  113.             break;
  114.         case FMD_FINISH:        /* If the client's dialog window is still hanging around, dispose of it.... */
  115.             dialog_window = client->zen;
  116.             if (dialog_window)
  117.             {
  118.                 v_hide_c(V_handle);
  119.                 display_windows_below(dialog_window);
  120.                 v_show_c(V_handle, 1);
  121.  
  122.                 dialog_window->is_open = FALSE;
  123.  
  124.                 delete_window(dialog_window);
  125.                 client->zen = NULL;
  126.             }
  127.             break;
  128.     }
  129.     
  130.     pb->intout[0] = 1;
  131.     
  132.     return XAC_DONE;
  133. }
  134.  
  135. unsigned long XA_form_button(short clnt_pid, AESPB *pb)
  136. {
  137.     OBJECT *tree = (OBJECT*)pb->addrin[0];
  138.     short ob = pb->intin[0];
  139.     short is, os, x, y, w, h;
  140.  
  141.     pb->intout[1] = 0;
  142.  
  143.     if (tree[ob].ob_flags & EDITABLE)    /* Select a new editable text field? */
  144.     {
  145.     /*    
  146.      * Shouldn't this really do all that's done in form_do?
  147.      */
  148.  
  149.         pb->intout[1] = ob;
  150.     }
  151.  
  152.     if (((tree[ob].ob_flags & HIDETREE)        /* Was click on a valid selectable object? */
  153.         ||(tree[ob].ob_state & DISABLED))
  154.         ||(!(tree[ob].ob_flags & (SELECTABLE | EXIT | TOUCHEXIT))))
  155.     {
  156.         pb->intout[0] = 1;
  157.         return XAC_DONE;
  158.     }
  159.  
  160.     CLIP(tree, ob, x, y, w, h);
  161.  
  162.     os = tree[ob].ob_state;
  163.     is = os ^ SELECTED;
  164.  
  165.     if (tree[ob].ob_flags & TOUCHEXIT)        /* Change state & exit for TOUCHEXIT objects */
  166.     {
  167. /*
  168.  * Surely radio buttons must be handled as well?
  169.  */
  170.         /* Only selectable objects change appearance! */
  171.         if (tree[ob].ob_flags & SELECTABLE)
  172.         {
  173.             tree[ob].ob_state = is;
  174.             v_hide_c(V_handle);
  175.             draw_object_tree(tree, ob, MAX_DEPTH);
  176.             v_show_c(V_handle, 1);
  177.         }
  178.  
  179.         pb->intout[1] = ob;
  180.         
  181.         pb->intout[0] = 0;
  182.         
  183.         if (pb->intin[1] == 2)    /* Double click? */
  184.         {
  185.             pb->intout[1] |= 0x8000;
  186.         }
  187.         
  188.         return XAC_DONE;
  189.     }
  190.  
  191. /*
  192.  * Should this perhaps be done in watch_object()?
  193.  */
  194.     tree[ob].ob_state = is;
  195.     CLIP(tree, ob, x, y, w, h);
  196.     v_hide_c(V_handle);
  197.     draw_object_tree(tree, ob, MAX_DEPTH);
  198.     v_show_c(V_handle, 1);
  199.         
  200.     if (watch_object(tree, ob, is, os))        /* Do a watch to see if object is really selected */
  201.     {
  202.         if (!(tree[ob].ob_flags&SELECTABLE))
  203.         {
  204.             tree[ob].ob_state=os;
  205.             v_hide_c(V_handle);
  206.             draw_object_tree(tree,ob,2);
  207.             v_show_c(V_handle,1);
  208.         }
  209. /*
  210.  * Surely this should check for radio buttons?
  211.  */
  212.          if (tree[ob].ob_flags & EXIT)
  213.         {
  214.             pb->intout[1] = ob;
  215.             pb->intout[0] = 0;
  216. #ifdef CLIP
  217.             clear_clip();
  218. #endif
  219.             
  220.             return XAC_DONE;
  221.         }
  222.     }
  223.  
  224. #ifdef CLIP
  225.     clear_clip();
  226. #endif
  227.  
  228.     pb->intout[0] = 1;
  229.     return XAC_DONE;
  230. } 
  231.  
  232. unsigned long XA_form_alert(short clnt_pid, AESPB *pb)
  233. {
  234.     XA_CLIENT *client=Pid2Client(clnt_pid);
  235.     client->waiting_pb = pb;
  236.     
  237.     do_form_alert(pb->intin[0], (char*)pb->addrin[0], clnt_pid);
  238.  
  239.     return XAC_BLOCK;
  240. }
  241.  
  242. char error_alert[100];
  243. unsigned long XA_form_error(short clnt_pid, AESPB *pb)
  244. {
  245.     XA_CLIENT *client=Pid2Client(clnt_pid);
  246.     char *msg;
  247.     char icon;
  248.  
  249.     client->waiting_pb = pb;
  250.     
  251.     switch(pb->intin[0])
  252.     {
  253.         case 2:
  254.             msg = "File not found.";
  255.             icon = '5';
  256.             break;
  257.         case 3:
  258.             msg = "Path not found.";
  259.             icon = '5';
  260.             break;
  261.         case 4:
  262.             msg = "No more file handles.";
  263.             icon = '5';
  264.             break;
  265.         case 5:
  266.             msg = "Access denied.";
  267.             icon = '5';
  268.             break;
  269.         case 8:
  270.             msg = "Insufficient memory.";
  271.             icon = '6';
  272.             break;
  273.         case 10:
  274.             msg = "Invalid enviroment.";
  275.             icon = '6';
  276.             break;
  277.         case 11:
  278.             msg = "Invalid format.";
  279.             icon = '6';
  280.             break;
  281.         case 15:
  282.             msg = "Invalid drive specification.";
  283.             icon = '5';
  284.             break;
  285.         case 16:
  286.             msg = "Attempt to delete working directory.";
  287.             icon = '5';
  288.             break;
  289.         case 18:
  290.             msg = "No more files.";
  291.             icon = '5';
  292.             break;
  293.         default:
  294.             msg = "Unknown error.";
  295.             icon = '7';
  296.             break;
  297.         
  298.     }
  299.     
  300.     sprintf(error_alert, "[%c][ ERROR: | %s ][ Bugger ]", icon, msg);
  301.     
  302.     do_form_alert(1, error_alert, clnt_pid);
  303.  
  304.     return XAC_BLOCK;
  305. }
  306.  
  307. /*
  308.     Non-blocking form_do
  309.     - uses an object tree widget in a window to implement the form handler.
  310. */
  311. unsigned long XA_form_do(short clnt_pid, AESPB *pb)
  312. {
  313.     XA_CLIENT *client=Pid2Client(clnt_pid);
  314.     XA_WINDOW *dialog_window;
  315.     OBJECT *form = (OBJECT*)pb->addrin[0];
  316.     XA_WIDGET_LOCATION dialog_toolbar_loc = {LT, 3, 20};
  317.     short x, y, w, h;
  318.     short startedit;
  319.     
  320.     DIAGS(("form_do()\n"));
  321.  
  322.     client->waiting_pb = pb;
  323.     
  324.     if (!client->zen)            /* If the client hasn't called FMD_START (naughty), create a window for the dialog */
  325.     {
  326.         dialog_window = create_window(clnt_pid, NAME | MOVE, form->ob_x, form->ob_y, form->ob_width, form->ob_height);
  327.  
  328.         x = 2 * dialog_window->x - dialog_window->wx;
  329.         y = 2 * dialog_window->y - dialog_window->wy;
  330.         w = 2 * dialog_window->w - dialog_window->ww + 1;
  331.         h = 2 * dialog_window->h - dialog_window->wh + 1;
  332.  
  333.         delete_window(dialog_window);        /* Dispose of the temporary window we created */
  334.  
  335.         client->zen = dialog_window = create_window(clnt_pid, NAME | MOVE | STORE_BACK | NO_MESSAGES | NO_WORK, x, y, w, h);
  336.  
  337.         dialog_window->created_by_FMD_START = FALSE;
  338.     /* Set the window title to be the clients name to avoid confusion */
  339.         dialog_window->widgets[XAW_TITLE].stuff = (void*)client->name;
  340.     }else{
  341.         dialog_window = client->zen;
  342.         dialog_window->owner = clnt_pid;
  343.         
  344. #if 0
  345.         v_hide_c(V_handle);
  346.         display_windows_below(dialog_window);
  347.         v_show_c(V_handle, 1);
  348. #endif
  349.     }
  350.     
  351. //    client->waiting_for=XAWAIT_DIALOG|XAWAIT_KEY;
  352.     client->waiting_for=XAWAIT_DIALOG;
  353.     dialog_toolbar_loc.y = display.c_max_h + 10;
  354.     set_toolbar_widget(dialog_window, dialog_toolbar_loc, form);
  355.     
  356.     /*
  357.      * If there is an editable field, we'll need a keypress handler.
  358.      */
  359.     
  360.     startedit = pb->intin[0];
  361.     if (!startedit) {    /* If there's no set edit_obj field, search */
  362.         short f = 0;
  363.         do {
  364.             if (form[f].ob_flags & EDITABLE) {
  365.                 startedit = f;
  366.                 break;
  367.             }
  368.             f++;
  369.         } while (!(form[f].ob_flags & LASTOB));
  370.     }
  371.     
  372.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->owner = clnt_pid;
  373.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_obj = startedit;
  374.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_pos = 0;    /* Needed? */
  375.     
  376.     if (startedit) {    /* Set up keypress handler if needed */
  377.         TEDINFO *te = (TEDINFO*)form[startedit].ob_spec;
  378.         short f = 0;
  379.  
  380.         do {                                /* Ensure that there aren't two fields flagged as the */
  381.             form[f].ob_state &= ~IS_EDIT;        /* current edit field */
  382.             f++;
  383.         } while(!(form[f].ob_flags & LASTOB));
  384.         
  385.         dialog_window->keypress = &handle_form_key;
  386.         form[startedit].ob_state |= IS_EDIT;
  387.         te->te_tmplen = strlen(te->te_ptext);
  388.         ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_pos = te->te_tmplen;
  389.  
  390.         CLIP(form, startedit, x, y, w, h);
  391.         v_hide_c(V_handle);
  392.         draw_object_tree(form, startedit, 2);
  393.         v_show_c(V_handle, 1);
  394.     }
  395.  
  396.     dialog_window->active_widgets |= (NO_MESSAGES | MOVE);    /* We don't want any redraw messages  */
  397.                                             /* - the widget handler will take care of it */
  398.     dialog_window->is_open = TRUE;
  399.  
  400. #if 0
  401.     v_hide_c(V_handle);
  402.     pull_wind_to_top(dialog_window);
  403.     display_window(dialog_window);
  404.     v_show_c(V_handle, 1);
  405. #endif
  406.  
  407.     return XAC_BLOCK;
  408. }
  409.  
  410. short XA_form_keybd(short clnt_pid, AESPB *pb)
  411. {
  412.     OBJECT *form = pb->addrin[0];
  413.     short ed_obj = pb->intin[0];
  414.     short keycode = pb->intin[1];
  415.     TEDINFO *ed_txt;
  416.     char *txt;
  417.     short o, x, y, w, h, last_ob;
  418.     
  419.     DIAGS(("form_keybd():%x,%x,%x\n", pb->intin[0], pb->intin[1], pb->intin[2]));
  420.     
  421.     pb->intout[0] = 1;
  422.     pb->intout[1] = ed_obj;
  423.     pb->intout[2] = 0;
  424.     
  425.     if (!(form[ed_obj].ob_flags & EDITABLE))
  426.         return XAC_DONE;
  427.  
  428.     ed_txt = (TEDINFO*)form[ed_obj].ob_spec;
  429.     txt = ed_txt->te_ptext;
  430.  
  431.     switch(keycode)
  432.     {
  433.     case 0x0f09:        /* TAB moves to next field */
  434.     case 0x5000:        /* DOWN ARROW also moves to next field */
  435.         if (form[ed_obj].ob_flags & LASTOB)    /* Loop round */
  436.             o = 0;
  437.         else
  438.             o = ed_obj;
  439.                 
  440.         for(o++; !(form[o].ob_flags & EDITABLE); o++)        /* search for next editable object */
  441.         {
  442.             if (form[o].ob_flags & LASTOB)    /* Loop round */
  443.                 o = 0;
  444.         }
  445.                 
  446.         break;
  447.     
  448.     case 0x5032:        /* SHIFT+DOWN ARROW moves to last field */
  449.         for(last_ob = 0; !(form[last_ob].ob_flags & LASTOB); last_ob++) ; /*find last object*/
  450.         o = last_ob;
  451.         for(; !(form[o].ob_flags & EDITABLE); o--) ;        /* search for last editable object */
  452.         break;
  453.             
  454.     case 0x4800:    /* UP ARROW moves to previous field */
  455.         for(last_ob = 0; !(form[last_ob].ob_flags & LASTOB); last_ob++) ; /*find last object*/
  456.                 
  457.         if (ed_obj == 1)    /* Loop round ? */
  458.             o = last_ob + 1;
  459.         else
  460.             o = ed_obj;
  461.                     
  462.         for(o--; !(form[o].ob_flags & EDITABLE); o--)        /* search for previous editable object */
  463.         {
  464.             if (o == 1)    /* Loop round */
  465.                 o = last_ob + 1;
  466.         }
  467.                 
  468.         break;
  469.     
  470.     case 0x4838:        /* SHIFT+UP ARROW moves to first field */
  471.         o = 0;
  472.         for(o++; !(form[o].ob_flags & EDITABLE); o++) ;    /* search for first editable object */
  473.         break;
  474.                     
  475.     case 0x1c0d:    /* Return - select default (if any) */
  476.         o = 0;
  477.         do{
  478.             if (form[o].ob_flags & DEFAULT)
  479.             {
  480.                 pb->intout[0] = 0;
  481.                 pb->intout[1] = o;
  482.                 return XAC_DONE;
  483.             }
  484.             o++;
  485.         } while(!(form[o].ob_flags & LASTOB));
  486.         break;
  487.                 
  488.     default:        /* just a plain key - insert character */
  489.         DIAGS(("passing character back to client\n"));
  490.         pb->intout[2] = keycode;
  491.         break;
  492.     }
  493.     switch(keycode) {    /* Moved from four places above. */
  494.     case 0x0f09:        /* All the common updating is */
  495.     case 0x5000:        /* done here now. */
  496.     case 0x5032:
  497.     case 0x4800:
  498.     case 0x4838:
  499.         if (o != ed_obj)    /* If edit field has changed, update the display */
  500.         {
  501.             form[o].ob_state |= IS_EDIT;
  502.             form[ed_obj].ob_state &= ~IS_EDIT;
  503.             
  504.             CLIP(form, ed_obj, x, y, w, h);
  505.             v_hide_c(V_handle);
  506.             draw_object_tree(form, ed_obj, 2);
  507.  
  508.             ((TEDINFO*)form[o].ob_spec)->te_tmplen = strlen(((TEDINFO*)form[o].ob_spec)->te_ptext);
  509.             
  510.             CLIP(form, o, x, y, w, h);
  511.             draw_object_tree(form, o, 2);
  512.             v_show_c(V_handle, 1);
  513.                 
  514.             pb->intout[1] = o;
  515.         }
  516.     }
  517.     
  518.     return XAC_DONE;
  519. }
  520.